C................................................................       FSU   10
      SUBROUTINE FSUB(X, Z, F)                                          FSU   20
      REAL*8 Z(4), F(1), X
      F(1) = (1.-6.*X**2*Z(4)-6.*X*Z(3))/X**3
      RETURN
      END
